is_non_zero_diagonal Function

public function is_non_zero_diagonal(A) result(is_non_zero_diag)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), DIMENSION(:, :) :: A

Return Value logical


Calls

proc~~is_non_zero_diagonal~~CallsGraph proc~is_non_zero_diagonal is_non_zero_diagonal proc~diag Diag proc~is_non_zero_diagonal->proc~diag

Source Code

    FUNCTION is_non_zero_diagonal(A) RESULT(is_non_zero_diag)
        REAL(dp), DIMENSION(:, :), INTENT(IN) :: A
        LOGICAL :: is_non_zero_diag

        is_non_zero_diag = .TRUE.

        IF (ANY(ABS(Diag(A)) < epsi)) is_non_zero_diag = .FALSE.

    END FUNCTION is_non_zero_diagonal